Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于列名称的代码求助


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

主题：关于列名称的代码求助
帅哥哟，离线，有人找我吗？
hongye
 小大  11楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：2949 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2020/2/15 15:03:00 [只看该作者]

如何将这些数据放到1个Label里一起显示出来呢？

 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  12楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：108851 积分：553792 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/15 15:17:00 [只看该作者]

Messagebox.show改为

e.form.controls("标签1").text = e.form.controls(“标签1”).text & dr.Group & ": " & Sum & ","

 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  13楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：2949 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2020/2/15 15:50:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：01.jpg
图片点击可在新窗口打开查看

多了一个数据
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  14楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：108851 积分：553792 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/15 15:56:00 [只看该作者]

完整代码发上来？

 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  15楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：2949 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2020/2/15 16:03:00 [只看该作者]

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim Sum As  Double
Dim Sum1 As  Double
Dim Sl As  String
For i As Integer = 0 To lvw.Groups.Count-1
    Sum = 0
    For Each dr As WinForm.ListViewRow In lvw.Groups(i).Rows
        Sum = Sum + dr("金额")
    Next
    sl = sl & "  " & lvw.Groups(i).Name & ": " & Sum & ","

Next
e.form.controls("Label1").text = sl & Sum(sl) '这里合计怎么写呢
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  16楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：108851 积分：553792 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/15 16:10:00 [只看该作者]

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
Dim Sum As  Double
Dim Sum1 As  Double
Dim Sl As  String
For i As Integer = 0 To lvw.Groups.Count-1
    Sum = 0
    For Each dr As WinForm.ListViewRow In lvw.Groups(i).Rows
        Sum = Sum + dr("金额")
    Next
Sum1  += Sum 
msgbox(lvw.Groups(i).Name & ": " & Sum )
    sl = sl & "  " & lvw.Groups(i).Name & ": " & Sum & ","

Next
e.form.controls("Label1").text = sl & Sum1
 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  17楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：2949 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2020/2/15 16:15:00 [只看该作者]

还有一个问题
Dim s As String
For i As Integer = 0 To Tables("表A").Cols.Count - 1 
Dim hmc As  String
hmc = Tables("表A").Cols(i).Name
s = s & vbcrlf & hmc & ":" & dr(hmc)
Next
vr.ToolTipText = s.trim()

显示出来怎么是这样的？

图片点击可在新窗口打开查看此主题相关图片如下：01.jpg
图片点击可在新窗口打开查看
我的要求是移到哪个行就显示哪个行的数据
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  18楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：108851 积分：553792 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/15 16:20:00 [只看该作者]

完整代码

 回到顶部
帅哥哟，离线，有人找我吗？
hongye
 小大  19楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：437 积分：2949 威望：0 精华：0 注册：2011/3/15 12:49:00 		  发帖心情 Post By：2020/2/15 16:21:00 [只看该作者]

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() '暂停绘制
lvw.View = ViewMode.Details  '显示模式为详细内容
lvw.GridLines = True '显示网格线
'lvw.MultiSelect = False  '禁止选择多行
'lvw.Images.Clear() '清除之前的图片
Dim gps() As  String  = {"bA","bB","bC"} '定义分组名称
Dim cls() As String = {"项目名称","规格","成份或质地","克重","门幅","单位","单耗","单价","金额","供应商"}  '指定要显示的各列
Dim wds() As Integer = {120,100,100,45,45,40,50,60,70,100} '定义列宽
For i As Integer = 0 To  cls.Length - 1
    Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
    c.Name = cls(i) '指定列名
    c.Text = cls(i)'指定列标题
    c.Width = wds(i) '指定列宽
Next
For Each gp As String In gps
    Dim vg As WinForm.ListViewGroup = lvw.Groups.Add() '增加分组
    vg.Name = gp  '指定分组名称
    vg.Text = gp '指定分组标题
Next
For Each dr As DataRow In DataTables("表A").DataRows '从数据表中提取数据
   Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
Dim s As String
For i As Integer = 0 To Tables("表A").Cols.Count - 1 
Dim hmc As  String
hmc = Tables("表A").Cols(i).Name
s = s & vbcrlf & hmc & ":" & dr(hmc)
Next
vr.ToolTipText = s.trim()
    For Each cl As String In cls '逐列取值
        vr("项目名称") = dr("面料名称")
        vr("规格") = dr("规格")
        vr("成份或质地") = dr("成份")
        If dr.IsNull("克重") Then
            vr("克重") = ""
        Else
            vr("克重") = dr("克重")
        End If
        If dr.IsNull("门幅") Then
            vr("门幅") = ""
        Else
            vr("门幅") = dr("门幅")
        End If
        vr("单位") = dr("计量单位")
        If dr.IsNull("单耗") Then
            vr("单耗") = ""
        Else
            vr("单耗") = dr("单耗")
        End If
        If dr.IsNull("单价") Then
            vr("单价") = ""
        Else
            vr("单价") = Format(dr("单价"),"n")
        End If
        If dr.IsNull("金额") Then
            vr("金额") = ""
        Else
            vr("金额") = Format(Round2(dr("金额"),2),"n")
        End If
        vr("供应商") = dr("供应商")
        vr.Group = "bA"
    Next
Next
For Each dr As DataRow In DataTables("表B").DataRows '从数据表中提取数据
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
Dim s As String
For i As Integer = 0 To Tables("表B").Cols.Count - 1 
Dim hmc As  String
hmc = Tables("表B").Cols(i).Name
s = s & vbcrlf & hmc & ":" & dr(hmc)
Next
vr.ToolTipText = s.trim()
    For Each cl As String In cls '逐列取值
        vr("项目名称") = dr("辅料名称")
        vr("规格") = dr("规格")
        vr("成份或质地") = dr("辅料质地")
        If dr.IsNull("克重") Then
            vr("克重") = ""
        Else
            vr("克重") = dr("克重")
        End If
        If dr.IsNull("门幅") Then
            vr("门幅") = ""
        Else
            vr("门幅") = dr("门幅")
        End If
        vr("单位") = dr("计量单位")
        If dr.IsNull("单耗") Then
            vr("单耗") = ""
        Else
            vr("单耗") = dr("单耗")
        End If
        If dr.IsNull("单价") Then
            vr("单价") = ""
        Else
            vr("单价") = Format(dr("单价"),"n")
        End If
        If dr.IsNull("金额") Then
            vr("金额") = ""
        Else
            vr("金额") = Format(Round2(dr("金额"),2),"n")
        End If
        vr("供应商") = dr("供应商")
        vr.Group = "bB"
    Next
Next
For Each dr As DataRow In DataTables("涤式").DataRows '从数据表中提取数据
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
Dim s As String
For i As Integer = 0 To Tables("涤式").Cols.Count - 1 
Dim hmc As  String
hmc = Tables("涤式").Cols(i).Name
s = s & vbcrlf & hmc & ":" & dr(hmc)
Next
vr.ToolTipText = s.trim()
    For Each cl As String In cls '逐列取值
        vr("项目名称") = dr("二次加工名称")
        vr("规格") = ""
        vr("成份或质地") = ""
        vr("克重") = ""
            vr("门幅") = ""
        vr("单位") = dr("计量单位")
            vr("单耗") = dr("数量")
        If dr.IsNull("单价") Then
            vr("单价") = ""
        Else
            vr("单价") = Format(dr("单价"),"n")
        End If
        If dr.IsNull("金额") Then
            vr("金额") = ""
        Else
            vr("金额") = Format(Round2(dr("金额"),2),"n")
        End If
        vr("供应商") = dr("供应商")
        vr.Group = "bC"
    Next
Next
lvw.ResumeRedraw() '恢复绘制
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  20楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：108851 积分：553792 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/2/15 16:28:00 [只看该作者]

代码没有问题，上传实例测试

 回到顶部
总数 22 上一页 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05273 秒, 4 次数据查询