vb資料庫msflexgrid
① vb msflexgrid控制項的使用
MSFlexGrid1.Rows = 3 '3行
MSFlexGrid1.Cols = 3 '3列
MSFlexGrid1.FixedCols = 0 '固定列：無
MSFlexGrid1.FixedRows = 1 '固定行：1行
MSFlexGrid1.FormatString = "^ A |^ B |^ C "標題為A,B,C， |分隔標題，左對齊用<，居中用^，右對齊>。
MSFlexGrid1.TextMatrix(1, 0) = 1
MSFlexGrid1.TextMatrix(2, 0) = 2
② VB的msflexgrid寫入資料庫的數據問題
查詢的sql語句：
select riqi,sum(zhongliang) as zlsum from 表 group by riqi
（請注意其中的as zlsum）
放入表格語句：
MSFlexGrid2.additem(i & vbTab & Trim(ors.fields("riqi").value) & vbTab & Trim(ors.fields("zlsum").value))
（注意其中的zlsum）
③ vb msflexgrid 控制項怎麼修改資料庫
反寫信息，最好程序後台控制，
前台做一個提交按鈕，
後面寫更新代碼。
④ VB6.0中MSFlexGrid控制項的用法
★呵呵！
>>
將文本賦值給MsFlexGrid的單元格
MsFlexGrid.TextMatrix(3,1)=」Hello」
>>
在MsFlexGrid控制項單元格中插入背景圖形
Set
MsFlexGrid.CellPicture=LoadPicture(「C:\temp\1.bmp」)
>>選中某個單元
MsFlexGrid.Row=1
MsFlexGrid.Col=1
>>用粗體格式化當前選中單元
MsFlexGrid.CellFontBold=True
>>
添加新的一行
使用AddItem方法,用Tab字元分開不同單元格的內容
dim
row
as
string
row=」AAA」&vbtab&」bbb」
MsFlexFrid1.addItem
row
>>怎樣來實現MSFlexGrid控制項單數行背景為白色，雙數的行背景為藍色?
Dim
i
As
Integer
With
MSFlexGrid1
.AllowBigSelection
=
True
』
設置網格樣式
.FillStyle
=
flexFillRepeat
For
i
=
0
To
.Rows
-
1
.Row
=
i:
.Col
=
.FixedCols
.ColSel
=
.Cols()
-
.FixedCols
-
1
If
i
Mod
2
=
0
Then
.CellBackColor
=
&HC0C0C0
』
淺灰
Else
.CellBackColor
=
vbBlue
』
蘭色
End
If
Next
i
End
With
>>
MSFlexGrid控制項如何移到最後一行
MSFlexGrid1.TopRow
=
MSFlexGrid1.Rows
–
1
>>如何判斷msflexgrid有無滾動條
Declare
Function
GetScrollRange
Lib
"user32"
(ByVal
hWnd
As
Long,
ByVal
nBar
As
Long,
lpMinPos
As
Long,
lpMaxPos
As
Long)
As
Long
Public
Const
SB_HORZ
=
&H0
Public
Const
SB_VERT
=
&H1
Public
Function
VsScroll(MshGrid
As
MSHFlexGrid)
As
Boolean
』判斷水平滾動條的可見性
Dim
i
As
Long
VsScroll
=
False
i
=
GetScrollRange(MshGrid.hWnd,
SB_HORZ,
lpMinPos,
lpMaxPos)
If
lpMaxPos
<>
lpMinPos
Then
VsScroll
=
True
End
Function
Public
Function
HeScroll(MshGrid
As
MSHFlexGrid)
As
Boolean
』判斷垂直滾動條的可見性
Dim
i
As
Long
HeScroll
=
False
i
=
GetScrollRange(MshGrid.hWnd,
SB_VERT,
lpMinPos,
lpMaxPos)
If
lpMaxPos
<>
lpMinPos
Then
HeScroll
=
True
End
Function
>>程序運行時，想動態增加MSFlexgrid的列數
在第2列後插入一列：
Private
Sub
Form_Load()
Me.MSHFlexGrid1.Cols
=
5
MSHFlexGrid1.Rows
=
2
For
i
=
0
To
Me.MSHFlexGrid1.Cols
-
1
Me.MSHFlexGrid1.TextMatrix(0,
i)
=
i
Me.MSHFlexGrid1.TextMatrix(1,
i)
=
i
Next
End
Sub
Private
Sub
Command1_Click()
Me.MSHFlexGrid1.Cols
=
Me.MSHFlexGrid1.Cols
+
1
Me.MSHFlexGrid1.ColPosition(5)
=
3
End
Sub
>>
請教MSFlexGrid中的對齊功能的使用
設置MSFlexGrid1.ColAlignment(index)=n
>>得到MSFlexGrid控制項中當前選中的一行
msflexgrid1.rowsel就是當前選中行
>>
如何通過代碼調節列寬度
msflexgrid1.colwidth(i)=4000
⑤ vb中關於msflexgrid控制項顯示查找到的資料庫內容的問題，求大神指點
現在你顯示數據的方法是不是讓 表格的datasource屬性綁定到 Data1 控制項上？這樣的話，你每次更新
Data1 ，表格中所有數據都將更新，也就是你Data1中是什麼數據，表格就是什麼數據
就目前我覺得有2個方法
1、就是你每次查找時 修改sql語句的條件，比如你之前的條件是 ".. where errCode = 5"--這里是查詢1條記錄
你後面重新查找時就將 條件改為 ".. where errCode in (5,6,7)"--這樣就可以查出多條記錄
2、利用ADO對象操作資料庫(具體怎麼操作，你可以找些資料，有問題到時候再分析)
這樣你每次查找1條記錄後，給表格新增1行，寫入數據，其他的數據則保留下來
⑥ VB MSFlexGrid控制項
因為每行的內容不同，設置自動調整列寬不一定能達到希望的效果。建議設置MSFlexGrid的屬性：MSFlexGrid1.AllowUserResizing = flexResizeBoth 意為允許調整列寬。顯示數據後，可將滑鼠放在標題行（0行）上該列的右邊界處，滑鼠指針會變成左右箭頭狀，按下左鍵，向右拖動，即可拉寬該列。
如果文字過長，上述方法還不能完全顯示，建議在MSFlexGrid控制項下方放置一個文本框，編寫代碼，當滑鼠單擊MSFlexGrid的某個單元格時，將該單元格內容顯示到文本框中。示例代碼如下：（放入MSFlexGrid1_Click()中）
Text1 = MSFlexGrid1.TextArray(fgi(MSFlexGrid1.MouseRow, MSFlexGrid1.MouseCol))
其中，fgi是由行、列號計算單元格位置的函數。
⑦ VB中MSFlexGrid怎麼添加內容
'MSHFlexGrid1是不能輸入的，只有通過一個text來輸入
Private Sub MSHFlexGrid1_Click()
Dim i As Long
With MSHFlexGrid1
If .Col = 1 Then
Text1.Text = Trim(.Text)
Text1.Left = .CellLeft - 10
Text1.Top = .CellTop - 10
Text1.Height = .CellHeight
Text1.Width = .CellWidth
Text1.Visible = True
Text1.SetFocus
Else
Text1.Visible = False
End If
End With
End Sub
Private Sub Text1_Change()
With MSHFlexGrid1
.Text = Trim(Text1.Text)
End With
End Sub
⑧ vb查詢資料庫讀取到MSFlexGrid
用這個控制項有點麻煩
因為不能在這個控制項直接輸入數據的，
一般的方法是
加個文本框，一般情況下是隱藏的，單擊表格後，顯示出來，移到單擊表格的位置，大小也與表格一樣，就在文本框里輸入數據，完成後把數據保存到資料庫里，再隱藏文本框。
⑨ VB 6.0中使用msflexgrid控制項,刪除選中行的同時刪除資料庫的內容
Private Sub Command1_Click()
Dim rSel As Long
With MSFlexGrid1
If .Rows = 0 Or .RowSel = 0 Then Exit Sub
rSel = .RowSel
If rSel <> .Rows - 1 Then
For i = rSel + 1 To .Rows - 1
For j = 1 To .Cols - 1
.TextMatrix(i - 1, j) = .TextMatrix(i, j)
Next
Next
End If
.Rows = .Rows - 1
End With
End Sub
⑩ vb中如何把查詢到的數據顯示在msflexgrid上呢 請高手來圍觀解答啊
是否又是你在問這個問題了？
你連接的是否為Access 資料庫？下面以Access 資料庫為例子：
先看一下結果。
窗體中放置好各控制項，Form_Load()增加如下的程序：
Private Sub Form_Load()
With Data1
.Connect = "Access"
.DatabaseName = "D:vbTempmyDB.mdb" 『資料庫所在的全路徑及名稱
.RecordSource = "SELECT * FROM T101 ORDER BY F1" '這里的T101是我用的表名稱
.Refresh 』F1 是我用的欄位名稱
End With
End Sub
「查詢」按扭增加如下的程序：
Private Sub cmdFind_Click()
With Data1
.RecordSource = "SELECT * FROM T101 WHERE F1 Like '" + Trim(txtCode) + "*'"
.Refresh
End With
End Sub
1、添加 MSFlexGrid 控制項：
「工程」->"部件"->"選擇 Microsoft FlexGrid Control 6.0"->"確定"
2、Data 控制項應該會設置吧
3、窗體上放置該控制項，設置其 DataSource 屬性=Data1
3、添加需要的程序
4、程序中的 "F1" 是我用欄位名稱，代表的是「錯誤編號」
5、查詢中用 Like 語句可以獲得相關的結果，也可以用 "=" 但後面不需要*「符號
"SELECT * FROM T101 WHERE F1='" + Trim(txtCode) + "'"