怎样在msflexgrid中插入复选框及将只有选择复选框的才能添加入数据库

[bruce20062006]

我想将产品入库
怎样在msflexgrid中插入复选框及将只有选择复选框的才能添加入数据库
哪有案例呀

[上官云峰]

用listview 控件，

[sunmoonn]

先弄出"√"
msflexgrid_click事件
if msflexgrid.(i行，j列).text<>"√" then
msflexgrid.(i行，j列).text="√"
else
msflexgrid.(i行，j列).text<>""
endif
再导入数据库
for i=0 to msflexgrid.rows-1
if msflexgrid.(行，列)="√" then
'添加数据入数据库
endif
next i

大概就是这样了.

[bruce20062006]

二楼说的不错,但那个复选框不会跟着滚动条走,有设置复选框及能随滚动条的些代码吗

[sunmoonn]

这个..
不用跟随滚动条的吧
因为，我所说的就是相当于把 msflexgrid里的单元格当作是一个复选框了.
所以.你说的跟随自然就没那个必要了.

[dasdsdfdfd]

[Quote=引用 2 楼 sunmoonn 的回复:]
先弄出 "√ "
msflexgrid_click事件
if msflexgrid.(i行，j列).text <> "√ " then
msflexgrid.(i行，j列).text= "√ "
else
msflexgrid.(i行，j列).text <> " "
endif
再导入数据库
for i=0 to msflexgrid……
[/Quote]


二楼说的“先弄出个"√ "
怎么实现？能否提供详细代码供参考呢

[饮水需思源]

Private Sub HFlexgrid_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim intCurrCol      As Long
    intCurrCol = HFlexgrid.Col
    '单击选择或不选择
    If HFlexgrid.rows < 2 Then Exit Sub
    If HFlexgrid.TextMatrix(HFlexgrid.Row, 0) = "√" Then
        HFlexgrid.TextMatrix(HFlexgrid.Row, 0) = ""
        '改变行颜色
         For i_Col = 0 To HFlexgrid.Cols - 2
            HFlexgrid.Col = i_Col
            HFlexgrid.CellBackColor = vbWhite
        Next i_Col
        
    Else
        HFlexgrid.TextMatrix(HFlexgrid.Row, 0) = "√"
        '改变行颜色
         For i_Col = 0 To HFlexgrid.Cols - 2
            HFlexgrid.Col = i_Col
            HFlexgrid.CellBackColor = &H80C0FF
        Next i_Col
        
    End If
    HFlexgrid.Col = intCurrCol
End Sub

[三断笛]

用vsflexgrid控件.
我觉得你的做法有问题.
不管有没有勾上,都应做为完整的单据信息写入数据库入库单.
但写库存表就可以过滤没有勾选的.