用VB怎么做工资表?

1、准备数据 将原有的数据源下拉一行，然后在表格中复制原有数据源的标题行，粘贴在右边空白列 为什么要把原始数据下拉一行， 因为我们会在右边第2行输入条件数据，如果筛选的时候第2行被隐藏了，后面没法输入条件了。所以为了确保第2行不被隐藏，把原始数据下拉了一行处理。2、录制宏 关键在于这一步，...

下载vb6.0搜索“练习调用数据库查询学生成绩表”根据步骤做一个工资表。主要是练习调用数据库。安装的时候点典型安装，安装完成后，却显示未响应，不用管，关了，找到安装的路径，把vb6.0发送到桌面快捷方式

你可以这样做，先在报表前设置一个选择日期的form，然后在选择了日期后，运行SQL语句，然后将datareport的datasource定义为刚才的recordset。你看看下面这段代码应该对你有所启示：private sub datareport_initialize()…dim adoconnectionx as new adodb.connection dim adorecordsetx ...

数据库配置好了吧，配置好了的话，就会自动生成工资报表的。然后的话，你就是填写了

代码如下:工资表 为你有内容的表!工资条表 是你要生成工资条的表!Sub 工资条制作()Dim veint,vaint ,i As Integer vaint = Sheets("工资表").Range("a65536").End(xlUp).Row eets("工资表").Range("1:2").Copy (Sheets("工资条表").Cells(1, 1))i=3 For veint = 3 To va...

vbOKOnly + vbInformation, "完成提示"xlsbook.Close xls.Application.Quit Set xls = Nothing Set xlsbook = Nothing Set xlssheet = Nothing End Function 导入很简单上面是函数，打印也简单有个叫报表编辑器的东西，在vb 项目-添加datareport，然后自己设计一行的就行了 给个数据源就能打印出来了。

很显然,你的公司名称是个常量,不会是变量!打开excle之后,选"工具->宏->vb编译器"然后看里面是否存在"模块"或者"类模块"的东西.(啥也没有的不是宏...)有的话,点选模块,用CTRL+F查找你的公司名字,然后直接修改一下就OK~(模块可能很多,也可能只有一个,你都查看一下吧!)...

Private Sub Command1_Click()Dim money As Integer Dim m100, m50, m10, m5, m1 As Integer money = Int(Val(Text1.Text))m100 = money \ 100 m50 = (money - m100 * 100) \ 50 m10 = (money - m100 * 100 - m50 * 50) \ 10 m5 = (money - m100 * 100 - m50 * 50 -...

Adodc1.Recordset跟谁绑定了？是txtID、txtDate这些控件吗？如果是，在Adodc1.Recordset.AddNew之后，这些控件刷新一下。

Text4.Text = 0。 Text5.Text = 0。 Text6.Text = 0。Text7.Text = 0。Dim n As Long。If Text1.Text "" Then。n = Text1.Text。 If n >= 100 Then。 Text2.Text = Int(n / 100)。 n = n Mod 100。 End If。 If n >= 50 Then。 Text3.Text = Int(n ...