-- 作者：bestorange
-- 发布时间：2015/7/11 16:18:00
-- 狐狸老爹在不在
Dim md As String
md=Tables("教师签到表").Current("姓名")
Dim Result As DialogResult
Result = MessageBox.Show(md &" 要签到吗?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.Yes Then
Tables("教师签到表").Current.Save
Dim dr1 As DataRow = DataTables("学员一览表").Find("辅导老师 = \'" & md("姓名") & "\' And 课程 = \'" & md("授课内容") & "\'")
Dim dr2 As DataRow = DataTables("课类分类表").Find("课程 = \'" & md("授课内容") & "\'")
dr1("学费余额") = dr1("学费余额") - dr2("课时费")
MessageBox.Show(md &" 签到成功","提示")
Dim g As New GroupTableBuilder("统计表1", DataTables("教师签到表"))
g.Groups.AddDef("姓名")
g.Groups.AddDef("授课内容")
g.Groups.AddDef("学员名称")
g.Groups.AddDef("课时数")
g.Totals.AddDef("姓名", AggregateEnum.Count,"签到次数")
g.Build(False)
Dim f As new Filler
f.SourceTable = DataTables("统计表1") \'指定数据来源
f.SourceCols = "姓名,授课内容,学员名称,签到次数" \'指定数据来源列
f.DataTable = DataTables("签到统计表") \'指定数据接收表
f.DataCols = "第一列,第二列,第三列,第四列" \'指定数据接收列
f.Fill() \'填充数据
End If
运行错误提示
从字符串“姓名”到类型“Integer”的转换无效。
是哪里错了呢
|