【求助】移动开发table 定义主键 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

这样的要怎么样设置主键

With wb.AddTable("","Table1")

.Highlight = 1 '关闭高亮显示功能

Dim nms() As String = {"单号","客户","状态","时间"}

.Head.AddRow(nms)

For Each r As DataRow In dt.Select("fblnCancel = 0 And 备货人 = ''","单号")

.Body.AddRow(r("单号"),r("客户"),"备货中",r("fdtmCreateTime"))

For Each r1 As DataRow In dt.Select("fblnCancel = 0 And 备货人 > '' And fblnDB = 0 And 送货人 = ''","单号")

.Body.AddRow(r1("单号"),r1("客户"),"已备货",r1("fdtmJhrDate"))

For Each r2 As DataRow In dt.Select("fblnCancel = 0 And 送货人 > '' And fblnOvPr = 0","单号")

.Body.AddRow(r2("单号"),r2("客户"),"送货中",r2("fdtmJhrDate1"))

For Each r3 As DataRow In dt.Select("fblnCancel = 0 And fblnDB = 1 And 送货人 = ''","单号")

.Body.AddRow(r3("单号"),r3("客户"),"已打包",r3("fdtmJhrDate3"))

For Each r4 As DataRow In dt.Select("fblnCancel = 0 And fblnOvPr = 1 ","单号")

.Body.AddRow(r4("单号"),r4("客户"),"已送达",r4("fdtmJhrDate2"))

End With

主题：【求助】移动开发table 定义主键