在敲机房收费系统中遇到的问题。
代码如下:
DataGrid1.Columns(0).Caption = "卡号" 添加列名卡号
DataGrid1.Columns(1).Caption = "姓名" 添加列名姓名
DataGrid1.Columns(2).Caption = "上机日期" 添加列名上机日期
DataGrid1.Columns(3).Caption = "上机时间" 添加列名上机时间
DataGrid1.Columns(4).Caption = "机房号" 添加列名机房号
效果如图:
strCll = DataGrid1.Columns("卡号").CellText(DataGrid1.Bookmark) 获取点击行的所需字段
strSqll = "delete from shzt where card_id = '" & strCll & " '" 根据字段在数据库中删除
这样的代码虽然编写简单却有一个问题。
无奈之下,我在每个按钮下面都重新添加了字段名称。
怎样才能解决问题呢,恳求各位大神给予指导。
评论