Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]怎样做才能使表格中的起始状态没有任何内容


  共有1821人关注过本帖树形打印复制链接

主题：[求助]怎样做才能使表格中的起始状态没有任何内容
帅哥哟，离线，有人找我吗？
33chyh
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：124 积分：1190 威望：0 精华：0 注册：2015/12/27 21:01:00 		[求助]怎样做才能使表格中的起始状态没有任何内容  发帖心情 Post By：2016/3/5 10:18:00 [只看该作者]

老师：您好！下面是我编写的一段代码，在输入第一组数据后，成绩表中成绩1列的其他人的相关内容出现0。怎样做才能使其他行的起始数据没有任何内容呢？
Dim kgt1,kgt2,zgt1,zgt2 As Integer
For Each dr As DataRow In DataTables("答题数据1").datarows
    Dim fdr1 As DataRow = DataTables("客观题答案").find("客观题1 = '" & dr("客观题1") & "' And 试卷号 = '" & DataTables("答题数据1").name & "'")
    Dim fdr2 As DataRow = DataTables("客观题答案").find("客观题2 = '" & dr("客观题2") & "' And 试卷号 = '" & DataTables("答题数据1").name & "'")
    Dim ndr As DataRow = DataTables("成绩表").Find("学号 = '" & dr("学号") & "'")
    If ndr Is Nothing Then
        ndr = DataTables("成绩表").AddNew
        ndr("学号") = dr("学号")
    End If
    If fdr1 Is Nothing Then
        kgt1 = 0
    Else
        kgt1= 1
    End If
    If fdr2 Is Nothing Then
        kgt2 = 0
    Else
        kgt2= 1
    End If
    If dr("主观题1") = "t" Then
        zgt1 = 1
    Else
        zgt1=0
    End If
    If dr("主观题2") = "t" Then
        zgt2 = 1
    Else
        zgt2=0
    End If      '给相关列赋值
    ndr("成绩1") = kgt1 + kgt2 + zgt1+ zgt2
Next
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目4.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
Hyphen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐神 帖子：5015 积分：25363 威望：0 精华：0 注册：2015/8/18 9:21:00 		  发帖心情 Post By：2016/3/5 11:10:00 [只看该作者]

Dim kgt1,kgt2,zgt1,zgt2 As Integer

Dim fdr1 As DataRow = DataTables("客观题答案").find("客观题1 = '" & e.DataRow("客观题1") & "' And 试卷号 = '" & DataTables("答题数据1").name & "'")
Dim fdr2 As DataRow = DataTables("客观题答案").find("客观题2 = '" &  e.DataRow("客观题2") & "' And 试卷号 = '" & DataTables("答题数据1").name & "'")
Dim ndr As DataRow = DataTables("成绩表").Find("学号 = '" &  e.DataRow("学号") & "'")
If ndr Is Nothing Then
    ndr = DataTables("成绩表").AddNew
    ndr("学号") =  e.DataRow("学号")
End If
If fdr1 Is Nothing Then
    kgt1 = 0
Else
    kgt1= 1
End If
If fdr2 Is Nothing Then
    kgt2 = 0
Else
    kgt2= 1
End If
If  e.DataRow("主观题1") = "t" Then
    zgt1 = 1
Else
    zgt1=0
End If
If  e.DataRow("主观题2") = "t" Then
    zgt2 = 1
Else
    zgt2=0
End If      '给相关列赋值
ndr("成绩1") = kgt1 + kgt2 + zgt1+ zgt2
 回到顶部
帅哥哟，离线，有人找我吗？
33chyh
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：124 积分：1190 威望：0 精华：0 注册：2015/12/27 21:01:00 		  发帖心情 Post By：2016/3/5 12:47:00 [只看该作者]

谢谢，已经实现要求了！
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03418 秒, 5 次数据查询