以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  能不能帮我改一下这个代码。  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=147645)
--  作者：hongye
--  发布时间：2020/3/21 0:34:00
--  能不能帮我改一下这个代码。
Dim ks As WinForm.TabControl = e.Form.Controls("项目分类")
Dim cmd As New SQLCommand
Dim ds As DataTable
Dim cmb As WinForm.ComboBox
cmd.C
cmd.CommandText = "Select * Fr om {原料及加工词典}"
ds = cmd.ExecuteReader(True)
Tables("原料及加工词典_项目").DataSource = ds
Tables("原料及加工词典_项目").AllowEdit = True
Tables("原料及加工词典_项目").Filter = "分类 = \'项目分类\' and 项目分类 = \'" & ks.SelectedPage.Name & "\'"
Tables("原料及加工词典_项目").SetColVisibleWidth("类别|80")
Dim r As Row = Tables("原料及加工词典_项目").AddNew()
r("分类") = "项目分类"
r("项目分类") = ks.SelectedPage.Name

不知道为什么，增加的行不是在最后一行，请问哪里错了
--  作者：y2287958
--  发布时间：2020/3/21 8:55:00
--  
Tables("原料及加工词典_项目")是窗口表吗？
--  作者：有点蓝
--  发布时间：2020/3/21 10:02:00
--  
代码没有问题。是不是对表格做了排序？