- 博客(21)
- 资源 (1)
- 收藏
- 关注
原创 电子发票税费计算问题
前两天,听到一个同行单位在抱怨,新开发上线的电子发票开票过程中,出现了费用计算总是无法通过国税的计算,具体原因没有深究,回想了一下当初自已开发的过程中,也遇到了相同的问题,那么,我们来总结一下。问题阐述:每笔发票数据发送过去都返回开票失败,密文中的费用计算总是不对,要不费用多了和总费用不符,要不费用少了,也和总费用不符,导致开票校验失败。那我们来理一下思路,假设单价为2元,税率6%,数量为
2017-12-19 15:06:37
4228
原创 textbox类拟百度搜索框
Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged Me.TextBox1.AutoCompleteMode = AutoCompleteMode.Suggest Me.TextBox1.A
2011-11-29 10:45:08
696
原创 动态生成类拟QQ伸缩菜单+权限+dockpanle
mainform.designer.vb _Partial Class mainform Inherits WeifenLuo.WinFormsUI.Docking.DockContent 'Form 重写 Dispose,以清理组件列表。 _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disposing AndAlso components IsNot N
2011-01-28 22:36:00
1393
原创 原来一直都是我的错
前面曾发过一个日志,写的是listview加载上万条数据,那时还没理解RetrieveVirtualItem的用法,现在重新写一次,终于解决了打开别的窗体会出错的BUG.Imports EchoClass.EchoClassShowImports GoldPrinter.DataGridViewListViewHelperImports GoldPrinter.MisGoldPrint
2009-12-31 15:31:00
1114
原创 vb2005+水晶报表10.2+MSSQL 二进制图片保存及显示
前两天做了一个项目,项目内容包括将图片保存到MSSQL后用水晶报表显示出来并打印,在网上查了许久,都是看到数据库里保存的是图片路径,很不方便,终于看到一个贴子,其实很简单,就是不要用dataset,只需要将数据源用XSDSchema代替,将字段类型设置成:base64Binary,水晶报表中指定数据源为新建数据源,指向这个XSDSchema,其它操作和用DATASET做为数据源是一样的,代码也是按
2009-12-29 11:25:00
1959
原创 邮件群发
Imports SystemImports System.TextImports System.IOImports System.NetImports System.Net.SocketsImports System.CollectionsImports Microsoft.Office.Interop.ExcelImports Microsoft.VisualBasi
2009-07-17 11:11:00
724
原创 如果一切可以重来
如果一切可以重来,我不再会如此的甘心失去你,如果一切可以重来,我会对你说:对不起,请你不要走!不是我没有感觉到你对我的好,我是对自己没有信心,一定会有许多人去珍惜你,但是我却不能给你,现在的我没有勇气再去爱,我的心好累,我只想一个人好好的安静一段时间。时间转眼就快两年,虽然我们可以在一起说笑,但是已经不再是曾经的关系,我不会打扰你的生活,当一切已经在时间中淡忘,或许已经有了许多尘土,我不会再去把它
2009-05-06 02:01:00
621
原创 引用DLL下的窗体
Imports System.ReflectionTry Dim Asm As Assembly = Assembly.LoadFrom("DLL名称.dll") Dim frm1 As Form = DirectCast(Asm.CreateInstance("DLL命名空间.窗体名称"), Form) frm1.Show()Catch
2008-09-29 11:24:00
528
原创 listview虚拟列表加载上万数据并进行统计
listview虚拟列表加载上万数据并进行统计 这几天在搞数据统计,就一个收入列表,一个月下来有上万条数据,要列表出来,晕菜菜,原来用FOR NEXTKAO,他一千多条就给我加了几分钟,真是神仙啊~~~~~~干脆不要了,换成虚拟列表的形式算了,与其说统计,应该说成是向DATATABLE新增加一行自行统计的信息并显示出来,呵呵~以下附代码: Private Su
2008-09-27 17:41:00
2264
原创 可动态引用webservice
这些天一直在做某纯净水管理系统,由于车间与公司相距二十公里,领导指示,要用网络来进行数据交换,一时间头脑发热,选择了用 webservice 做为业务层,但是引用后只能是指定的,一直想可否是自行指定业务层的地址,找了百度和GOOGLE,一直没找到理想的,网上说通过一个Reference.vb的文件可以动态调用,但是打开一看:Public Sub New()
2008-09-26 11:18:00
668
转载 读取本机CPU ProcessorId
读取本机CPU ProcessorIdDim Wmi As New System.Management.ManagementObjectSearcher("SELECT * FROM Win32_Processor") Dim CPU As String = "" For Each WmiObj As ManagementObjec
2008-08-22 11:36:00
1602
原创 将图片保存至MSSQL
窗体设计 _Partial Class Form6 Inherits System.Windows.Forms.Form Form 重写 Dispose,以清理组件列表。 _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) If disp
2008-08-22 11:25:00
1222
转载 人民币大小写转换
Private Const M_Tail As String = "整" Private Const M_Zero As String = "零" Private Const M_Cn As String = M_Zero & "壹贰叁肆伍陆柒捌玖" Private Const M_Yuan As String = "元" Private Const M_Foma
2008-05-25 14:33:00
788
原创 LC.EXE 已退出,代码为-1的问题
前天买了新的电脑,把我的VS2005一个程序COPY到新机器上测试,结果失败并提示"LC.EXE 已退出,代码为-1",在百度/GOOGLE翻箱捣柜,发现网上有的说,只要把*.licx的文件删除重新编译就可以成功,有的还说,要把什么什么破解版的重新编译成DLL,但没一个是可以成功的!!!!!!!~~~~让我郁闷了个把小时.百般摆弄未果,心情低落.干脆用记事本打开*.licx来看看~这Y到底是
2007-10-27 08:19:00
8691
6
转载 网络-让人欢喜让人忧的一场游戏一场梦
记得谁人说过剧场是人间最热闹繁华也最冷清寂寞的地方。陌路平生的人们从不同的街巷拥挤到一处房檐下。台上嘻笑怒骂,慷慨激扬台下唏嘘不已,同悲同喜大幕落下,灯光暗灭唯一真实的就是散场后的满地垃圾。喧嚣地冷寂,熙攘地荒凉而网络竟连舞台也省却了无需观众,不用演员。所有的人原本都已登场你我没有粉墨,却也如此亮相大家一众,席地而坐,面面相觑时而冷眼旁观。时而哭笑由己看别人的感动,流自己的眼泪读别人的故事,听自
2007-09-12 11:50:00
688
原创 vb.net 2005 动态加载菜单及反射+权限
Imports System.ReflectionPublic Class Form1Class Form1 Public userflag As Object = "1,2,3,4,5,7,8" Private Sub Form1_FormClosing()Sub Form1_FormClosing(ByVal sender As Object, ByVal e As Syste
2007-08-19 12:47:00
2182
原创 VB.NET2003+水晶报表10打包过程(单机使用)
1、新建一个安装程序 2、指定主输出文件3、加入CrystalReports10_NET_EmbeddedReporting.msm4、设置MSM的MergeModuleProperties项内的Keycode,填入Keycode(帮助->关于 即可查到KEYCODE)5、如果在程序中包含有CrystalReports10其它的MSM如WEB用的,这样的话需要在程序中排除,否则打包
2007-08-12 10:16:00
858
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人