今天同事要做一个这样的工作，就是把电信发来的费用表，转换成按部门划分的电话费用表，100多部电话，如果一个个去核对，真还是需要些时间的。问题来了，有更好的方法么，我们来看一下。
电信公司给的费用明细是这个样子的，单个号码与费用合计并不在一起。
先通过Excel的筛选功能，去掉号码的空格行，这样把号码和费用放的近一点，因为中间的数据行数不是固定的，这样至少只差一行，就好办多了。
由于错开一行，把费用行数据整体剪切上移一行即可与号码在同一行。再把没有用的行列删除即可。
这是转换后的结果，如A列和C列。由于部门费用表中并没有区号显示，所以两者进行对接需要对号码进行处理一下，这不把A列截取右边8位即可。有一个宽带号码特殊的情况，需要手动处理一下。
这个就是部门费用表，上面的数据需要对应号码更新费用到下面这个表里面。原来的两张费用表用着不方便先放到一个Sheet中，这样查找起来方便多了。
写一个VBA的程序，对整理的号码进行循环，然后在部门号码表里查找，找到的话就将右边的值进行替换。这里面进行了一个出错的处理，否则如果不处理的话有找不到号码的时候就会报错而执行不下去。
Sub getDate()
On Error Resume Next
'不报错继续执行
For cln = 1 To 147
PhoneNumber = Sheets(&sheet1&).Cells(cln, 2)
money = Sheets(&sheet1&).Cells(cln, 3)
Dim rng As Range
Set rng = Worksheets(&总公司&).Range(&E1:E187&).Find(PhoneNumber, , , 1)
' MsgBox (rng.Address)
rng.Offset(0, 1).Value = money
'向右偏移一列即为费用值
If Err.Number = 0 Then
Sheets(&sheet1&).Cells(cln, 4) = &OK&
If Err.Number && 0 Then
Sheets(&sheet1&).Cells(cln, 4) = &Error&
'错误标识，重点查看即可
Err.Number = 0
程序都执行完了，再核对一下，对特殊的几个号码再处理一下就OK了。您还未登陆，请登录后操作！
悬赏20爱心点
分享到微博
VB程序：用TreeView控件来显示【部门】和【职员】
程序：用TreeView控件来显示【部门】和【职员】。用下面的代码，【部门】显示不理想，重复的都显示出来了。
我想要的结果是：比如【生产部】为一个主节点，只显示一个； 【生产部】的若干个子节点【职员】全都显示。其它部门类似。效果如图所示。
我用的是VB6.0
数据库为SQL2000
表名为【login】
一个列名为【部门】
一个列名为【职员】
一个列名为【编码】主键
Private Sub Command1_Click()
TreeView1.LineStyle = tvwRootLines
Dim nodx As Node
Dim nodx1 As Node
Dim SQl, Str1, Str2, Str3, Str4 As String
Dim yu As Integer
Dim yuu As Integer
Dim ADOrs As New Recordset
ADOrs.ActiveConnection = ADOcn
Dim i As Integer
Text1.Text = &&
TreeView1.Sorted = True
ADOrs.Open &SELECT
部门,名字 From login &
ADOrs.MoveFirst
Do While Not ADOrs.EOF
yu = yu + 1
yuu = yuu + 1
Str1 = CStr(yu) + &-& + ADOrs.Fields(&部门&)
Str2 = ADOrs.Fields(&部门&)
Str3 = CStr(yuu) + &-& + ADOrs.Fields(&职员&)
Str4 = ADOrs.Fields(&职员&)
Set nodx = TreeView1.Nodes.Add(, , Str1, Str2)
Set nodx = TreeView1.Nodes.Add(Str1, tvwChild, Str3, Str4)
ADOrs.MoveNext
ADOrs.Close
For i = 1 To TreeView1.Nodes.Count
TreeView1.Nodes(i).Expanded = True
Set ADOrs = Nothing
放上你的程序来吧
回答数：12首先是教育部门要反思，国民经济和各部门企业需要的是受过训练的专业技术人才，即技术工人，这是重中之重。谁让你们培养那么多大学毕业生，连个工作都找不着？
楼主正文显示宽度
跟帖显示为
本帖只代表的个人观点，不代表人民网观点。 如将本文用于其他媒体出版, 请与联系。举报
图文编辑模式
08:21:57&)
1784字(9423/70)
( 20:43:22)
0字(165/0)
( 18:46:39)
( 18:26:22)
( 17:51:04)
( 16:07:23)
( 17:08:23)
( 14:55:05)
( 14:45:24)
473字(47/0)
( 14:33:41)
392字(340/2)
( 14:42:30)
455字(109/1)
( 15:51:10)
( 14:41:25)
431字(74/0)
( 14:29:19)
409字(75/3)
( 14:38:28)
463字(19/0)
( 14:37:32)
462字(37/0)
( 14:35:41)
478字(143/1)
( 20:42:57)
( 14:23:06)
36字(15/0)
( 14:04:37)
( 13:36:21)
( 11:39:05)
24字(18/1)
( 12:58:29)
( 13:35:40)
14字(331/1)
( 15:21:58)
( 13:33:58)
15字(164/0)
( 10:57:35)
( 11:41:52)
10字(31/2)
( 14:00:33)
( 13:09:39)
0字(126/0)
( 11:33:29)
( 11:30:32)
25字(23/0)
( 10:13:59)
45字(51/0)
( 10:13:19)
( 10:57:10)
( 16:41:29)
( 10:29:06)
6字(143/1)
( 10:53:22)
( 11:39:09)
32字(75/0)
( 11:36:19)
24字(48/0)
( 09:50:09)
( 10:08:12)
44字(35/2)
( 17:09:16)
( 10:38:34)
13字(17/0)
( 09:34:34)
0字(150/1)
( 10:00:39)
( 09:28:20)
( 10:05:55)
32字(18/0)
( 10:05:18)
24字(44/0)
( 09:26:13)
( 14:33:13)
( 09:17:23)
41字(22/2)
( 09:24:52)
65字(135/0)
( 09:20:35)
86字(59/1)
( 09:23:32)
60字(605/0)
( 09:16:27)
59字(1033/1)
( 09:59:36)
436字(50/1)
( 11:05:07)
( 08:44:09)
15字(61/5)
( 14:46:31)
471字(25/0)
( 11:07:48)
( 14:43:12)
434字(121/0)
( 09:57:56)
434字(109/1)
( 14:34:54)
491字(407/0)
( 09:31:25)
26字(44/1)
( 14:35:24)
408字(883/0)
( 09:28:37)
83字(228/1)
( 14:33:39)
449字(108/0)
( 08:41:38)
8字(157/1)
( 09:18:51)
135字(90/1)
( 16:57:05)
请登录后继续操作....
强国社区-人民网vb.net textbox绑定问题_百度知道
vb.net textbox绑定问题
MyConnection)
Me.ToString()-------------------------------------------------------显示
最后一 行;'&quot。请问如何更改实现textbox显示数据库丝眯弛恍佾喝敷勤中的一个指定的数据.部门TextBox1Dim MySQLConnectionString As String = My;Select
部门经理姓名
from 公司部门表 where 部门名称 =&#39.部门经理TextBox2.ConnectionString1
Dim MyConnection As New SqlConnection(MySQLConnectionString)
MyConnection.Open()
Dim MySQL As String = && + Trim(Me.Text) + &quot.ExecuteScalar();
Dim MyCommand As New SqlCommand(MySQL.Text = MyCommand: ' ' 附近有语法错误.Settings
text 是吹塘摆核肢姑大普有值的，请不要误会，我是想通过调用textbox1.text中的值来动态改变textbox2.text的值我的textbox1
提问者采纳
————————————————Me; + Trim(Me，看漏织粹和诔古耕谱在Dim MySQL As String = &quot.Text 里面是没有内容的.部门TextBox1.Text) + &Select 部门经理姓名 from 公司部门表 where 部门名称 =&#39，能不能取到Me;& 这一行.Text的值.部门TextBox1.部门TextBox1那么你断点调试下。你需要在里面输入值之后才能进行S'&quot
其他类似问题
textbox的相关知识
按默认排序
其他1条回答
Text值不能为空TextBox1！你的TextBox1
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁VC,VB,VF在信息中心部门哪个比较实用?(急)_百度知道
VC,VB,VF在信息中心部门哪个比较实用?(急)
VF哪个用得很多?VC,对计算机具体需要撑忍灌短弑的靳轮会什么方面的操作呢,越具体越好,如果可以请告诉相关学习网站以供参考!请有经验的朋友指点一下,VB在财政局信息中心工作,非常感谢您的帮助
我需要一星期内了解基本操作和情况可以告诉我一些必要的工具下载和资料
提问者采纳
也不是3两个月能学会的，可以当业余爱好，vf等数据库是你应该学的财政局信息 一定不会用vc 虽然它是最重要卓坪第疚郢狡贵守的，vb到是简单
提问者评价
非常感谢，你有针对性的回答让我很放心！
其他类似问题
信息中心的相关知识
其他3条回答
个人讨厌VF,建议学VB,一样可以操作数据库~~~
等待您来回答
您可能关注的推广
下载知道APP
随时随地咨询
出门在外也不愁