如果有行,最后一行绝对不会是空的,这种判断完全是多余的,应该判断某一列单元格是否为空,比如编号
tbl.Table.SetColVisibleWidth(Tables("基本信息").GetColVisibleWidth())
tbl.Table.DataTable.DeleteFor("")'删除所有行
tbl.Table.Cols("性别").Combolist = "男|女"
tbl.Table.Cols("身份").Combolist = "参赛人|裁判"
tbl.Table.Cols("所属团体或个人分组").DropForm = "所属团体目录树"
Forms("所属团体目录树").Close()
If tbl.Table.Rows.count = 0 orelse tbl.Table.Rows(tbl.Table.Rows.Count - 1).isnull("xx列") = false Then'如果最后一行不为空
tbl.Table.AddNew = True'则自动增加一行
End If