以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 请教实例 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91692) |
||||
-- 作者:hbhb -- 发布时间:2016/10/17 10:50:00 -- 请教实例 蓝导:见实例,请问如何获得数组(中国,印度,加拿大,日本,英国,美国,泰国,德国)的字符在表a中出现次数最多的列号?
|
||||
-- 作者:有点蓝 -- 发布时间:2016/10/17 11:16:00 -- Dim filter As String = "第一列 in (\'中国\',\'印度\',\'加拿大\',\'日本\',\'英国\',\'美国\',\'泰国\',\'德国\')" Output.Show(DataTables("表A").Compute("Count([第一列])",filter)) Output.Show(DataTables("表A").Compute("Count([第二列])",filter)) 自己比较各列计算值
|
||||
-- 作者:hbhb -- 发布时间:2016/10/17 11:33:00 -- 就是不知道如何通过遍列获得列号呀?帮帮忙吧! |
||||
-- 作者:有点蓝 -- 发布时间:2016/10/17 11:46:00 -- http://www.foxtable.com/webhelp/scr/0561.htm |
||||
-- 作者:hbhb -- 发布时间:2016/10/17 11:56:00 -- 劳驾把代码直接写给我不行么?不要链接,我只要结果能看懂就行。会者不难,难者不会? |
||||
-- 作者:hbhb -- 发布时间:2016/10/17 12:22:00 -- |
||||
-- 作者:有点蓝 -- 发布时间:2016/10/17 14:20:00 -- Dim count As Integer Dim filter As String = " in (\'中国\',\'印度\',\'加拿大\',\'日本\',\'英国\',\'美国\',\'泰国\',\'德国\')" For Each cl As Col In Tables("表A").Cols If cl.IsString count = DataTables("表A").Compute("Count(" & cl.Name & ")",cl.Name & filter) Output.Show(cl.Name & "-" & count) End If Next
|
||||
-- 作者:hbhb -- 发布时间:2016/10/17 15:14:00 -- 谢谢!我要通过代码直接求出出现次数最多的列位置? |
||||
-- 作者:有点蓝 -- 发布时间:2016/10/17 15:43:00 -- Dim max As Integer Dim clname As String Dim count As Integer Dim filter As String = " in (\'中国\',\'印度\',\'加拿大\',\'日本\',\'英国\',\'美国\',\'泰国\',\'德国\')" For Each cl As Col In Tables("表A").Cols If cl.IsString count = DataTables("表A").Compute("Count(" & cl.Name & ")",cl.Name & filter) If count > max Then max = count clname = cl.Name End If End If Next Output.Show(clname) 麻烦回去好好看看编程基础。
|