Dim dr As DataRow = DataTables("订单").SQLAddNew()
Dim inms() As String = {"cp","kh","gy","dj","zk","sl","rq"} '输入框名称数组
Dim cnms() As String = {"产品","客户","雇员","单价","折扣","数量","日期"} '列名数组,注意列名和输入框必须一一对应,位置不能错乱
For i As Integer = 0 To inms.Length -1
dr(cnms(i)) = e.PostValues(Inms(i))
Next
dr.Save() '用SQLAddNew增加的行,必须保存一下,否则会被丢
这里的.SQLAddNew()在帮助文件中没有看到定义.什么作用?