主题：[求助]在添加按钮的单击事件中的代码，怎么加到表里的内容是空的呢

Dim maxid As String=Nothing

Dim cmd As New SQLCommand

Dim textbox1 As WinForm.TextBox = e.Form.Controls("TextBox1")

Dim textbox2 As WinForm.TextBox = e.Form.Controls("TextBox2")

cmd.C

cmd.CommandText = "Select Max(大类ID) From {物资大类表}" 

maxid = cmd.ExecuteScalar()'返回查找的最大编号

If maxid<>Nothing Then '如果编号不为空,生成新的编号

   maxid="DL" &  Format(CInt(maxid.SubString(2,3))+1,"000")

   MessageBox.Show(maxid)

Else

   maxid="DL001" '如果编号为空,说明数据表为空表,生成第一个编号

End If

Dim r As Row =CurrentTable.AddNew()

r("大类ID") = maxid

r("大类名称") =textbox2.Value

r.Save()