这是我的一个删除所选行的程序,vfUser是你的vsgrid.,SelectedRows是选中的行数,SelectedRow(0)是被选集合的某一行。仔细看看就明白了Dim Row As Long Dim tmpI As Long Dim MaxRow As Long Dim tmpID As Long MaxRow = vfUser.SelectedRows If vfUser.Row > 0 And MaxRow > 0 Then For tmpI = 1 To MaxRow Row = vfUser.SelectedRow(0) tmpID = vfUser.Cell(flexcpText, Row, 0) If tmpID > 1 Then CN.Execute "DELETE FROM USERtable WHERE USERID=" & tmpID vfUser.RemoveItem Row End If Next tmpI邮件已经发了,查收
to load 很感谢您的帮助 不过没收到您发的邮件!请您再发一次好吗? 以上代码请等我试一试
to load 代码我已经试了,为什么我在程序运行时,选了几行而vfUser.selectedRows总是返回0? 我的意思是想让程序知道用户选中了哪几行,然后根据选中的行再进行以后的操作。
to zyb_8022(紫光) :给你发的邮件被退了回来,可能是你的邮箱满了。 我现在重发了一遍。选了几行而vfUser.selectedRows总是返回0的问题可能是控件的属性问题, 你把selectionmode属性改改试,比如改成vfUser.SelectionMode=flexSelectionListBox上面程序的Row就是被选中行的行标啊
好像有个属性是isselect,旦我不知道你能不能用得上。 你到网上查个序列号,然后就解密了!
to load 很感谢您的帮助,但是我还是没收到,如果方便的话,请发往[email protected],谢谢 这个控件能不能跳着选定多行记录? 等我再试试 to dbcontrols(泰山__抛砖引玉) 老兄,那个网站现在对我没什么帮助,给点实际的帮助 to killerzlk(杀手) 谢谢您的建议
收到了,谢谢 我以为是vsflexgird的帮助呢?thanks any way 有没有vsflexgrid的帮助啊发一份吧 我现在真的体会到瞎子的感觉了,没有帮助,没有书。我一个属性一个方法的试,结果很不乐观,不是参数错误,就是属性错误。
谢谢!发给我吧,最好和帮助一起发
[email protected]
Dim tmpI As Long
Dim MaxRow As Long
Dim tmpID As Long MaxRow = vfUser.SelectedRows
If vfUser.Row > 0 And MaxRow > 0 Then
For tmpI = 1 To MaxRow
Row = vfUser.SelectedRow(0)
tmpID = vfUser.Cell(flexcpText, Row, 0)
If tmpID > 1 Then
CN.Execute "DELETE FROM USERtable WHERE USERID=" & tmpID
vfUser.RemoveItem Row
End If
Next tmpI邮件已经发了,查收
很感谢您的帮助
不过没收到您发的邮件!请您再发一次好吗?
以上代码请等我试一试
代码我已经试了,为什么我在程序运行时,选了几行而vfUser.selectedRows总是返回0?
我的意思是想让程序知道用户选中了哪几行,然后根据选中的行再进行以后的操作。
我现在重发了一遍。选了几行而vfUser.selectedRows总是返回0的问题可能是控件的属性问题,
你把selectionmode属性改改试,比如改成vfUser.SelectionMode=flexSelectionListBox上面程序的Row就是被选中行的行标啊
你到网上查个序列号,然后就解密了!
很感谢您的帮助,但是我还是没收到,如果方便的话,请发往[email protected],谢谢
这个控件能不能跳着选定多行记录?
等我再试试
to dbcontrols(泰山__抛砖引玉)
老兄,那个网站现在对我没什么帮助,给点实际的帮助
to killerzlk(杀手)
谢谢您的建议
我以为是vsflexgird的帮助呢?thanks any way
有没有vsflexgrid的帮助啊发一份吧
我现在真的体会到瞎子的感觉了,没有帮助,没有书。我一个属性一个方法的试,结果很不乐观,不是参数错误,就是属性错误。
vfUser.selectedRows还是返回0吗?