在DataGrid控件中,怎样只输入其中某一个列的值,其它几列自动产生?

Question

DataGrid1_RowColChange
调用方法DataGrid1_AfterColEdit重新生成新的sql语句

Answer 1

1 
Option Explicit
dim AddNewVal as boolean2
private datagris1_keypress(byval keyascii as integer)
if keyascii=vbkeytab then 
if datagrid1.col = 0 then
strBH = datagrid1.text '记住编号
set rs = cnn.execute("select * form 商品价格表 where 商品编号='" & strBH & "'")           '查找编号是否存在
if not rs.eof then
AddNewVal = true
end if
end if
end if
end sub3
private sub datagrid1_rowcolchange(......)
if AddNewVal 
select case datagrid1.col 
case 1
datagrid1.text = rs!商品名称
sendkeys "{Tab}"
case 2
datagrid1.text = rs!商品价格
AddNewVal = false
end select
end sub

Answer 2

谢谢楼上大哥,只是上面的代码我有些看不懂,你能否具体回答我以下几个问题:
(1) 怎样获得DataGrid控件中当前单元格的值及怎样付值给当前单元格?
(2) 在DataGrid控件中,按Tab键,光标从一列跳到另一列,会触发DataGrid控件的什么事件?希望其他知道上述问题的前辈都来帮帮忙,不胜感激!

Answer 3

1.当前单元格的植就是datagrid.text,付值给当前单元格datagrid.text=值
2. private sub datagrid1_rowcolchange(......)事件