- 博客(21)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 电子发票税费计算问题
前两天，听到一个同行单位在抱怨，新开发上线的电子发票开票过程中，出现了费用计算总是无法通过国税的计算，具体原因没有深究，回想了一下当初自已开发的过程中，也遇到了相同的问题，那么，我们来总结一下。问题阐述：每笔发票数据发送过去都返回开票失败，密文中的费用计算总是不对，要不费用多了和总费用不符，要不费用少了，也和总费用不符，导致开票校验失败。那我们来理一下思路，假设单价为2元，税率6%，数量为
2017-12-19 15:06:37
4080
原创 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
663
原创 动态生成类拟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
1383
原创 原来一直都是我的错
前面曾发过一个日志,写的是listview加载上万条数据,那时还没理解RetrieveVirtualItem的用法,现在重新写一次,终于解决了打开别的窗体会出错的BUG.Imports EchoClass.EchoClassShowImports GoldPrinter.DataGridViewListViewHelperImports GoldPrinter.MisGoldPrint
2009-12-31 15:31:00
1106
原创 vb2005+水晶报表10.2+MSSQL 二进制图片保存及显示
前两天做了一个项目,项目内容包括将图片保存到MSSQL后用水晶报表显示出来并打印，在网上查了许久，都是看到数据库里保存的是图片路径，很不方便，终于看到一个贴子，其实很简单，就是不要用dataset，只需要将数据源用XSDSchema代替，将字段类型设置成：base64Binary,水晶报表中指定数据源为新建数据源，指向这个XSDSchema,其它操作和用DATASET做为数据源是一样的，代码也是按
2009-12-29 11:25:00
1917
原创 邮件群发
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
713
原创 如果一切可以重来
如果一切可以重来，我不再会如此的甘心失去你，如果一切可以重来，我会对你说：对不起，请你不要走！不是我没有感觉到你对我的好，我是对自己没有信心，一定会有许多人去珍惜你，但是我却不能给你，现在的我没有勇气再去爱，我的心好累，我只想一个人好好的安静一段时间。时间转眼就快两年，虽然我们可以在一起说笑，但是已经不再是曾经的关系，我不会打扰你的生活，当一切已经在时间中淡忘，或许已经有了许多尘土，我不会再去把它
2009-05-06 02:01:00
575
原创 引用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
517
原创 listview虚拟列表加载上万数据并进行统计
listview虚拟列表加载上万数据并进行统计 这几天在搞数据统计,就一个收入列表,一个月下来有上万条数据,要列表出来,晕菜菜,原来用FOR NEXTKAO,他一千多条就给我加了几分钟,真是神仙啊~~~~~~干脆不要了,换成虚拟列表的形式算了,与其说统计,应该说成是向DATATABLE新增加一行自行统计的信息并显示出来,呵呵~以下附代码: Private Su
2008-09-27 17:41:00
2213
原创 可动态引用webservice
这些天一直在做某纯净水管理系统，由于车间与公司相距二十公里，领导指示，要用网络来进行数据交换，一时间头脑发热，选择了用 webservice 做为业务层，但是引用后只能是指定的，一直想可否是自行指定业务层的地址，找了百度和GOOGLE，一直没找到理想的，网上说通过一个Reference.vb的文件可以动态调用，但是打开一看：Public Sub New()
2008-09-26 11:18:00
659
转载 读取本机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
1577
原创 将图片保存至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
1208
转载 人民币大小写转换
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
780
原创 LC.EXE 已退出,代码为-1的问题
前天买了新的电脑,把我的VS2005一个程序COPY到新机器上测试,结果失败并提示"LC.EXE 已退出,代码为-1",在百度/GOOGLE翻箱捣柜,发现网上有的说,只要把*.licx的文件删除重新编译就可以成功,有的还说,要把什么什么破解版的重新编译成DLL,但没一个是可以成功的!!!!!!!~~~~让我郁闷了个把小时.百般摆弄未果,心情低落.干脆用记事本打开*.licx来看看~这Y到底是
2007-10-27 08:19:00
8620
6
转载 网络-让人欢喜让人忧的一场游戏一场梦
记得谁人说过剧场是人间最热闹繁华也最冷清寂寞的地方。陌路平生的人们从不同的街巷拥挤到一处房檐下。台上嘻笑怒骂，慷慨激扬台下唏嘘不已，同悲同喜大幕落下，灯光暗灭唯一真实的就是散场后的满地垃圾。喧嚣地冷寂，熙攘地荒凉而网络竟连舞台也省却了无需观众，不用演员。所有的人原本都已登场你我没有粉墨，却也如此亮相大家一众,席地而坐，面面相觑时而冷眼旁观。时而哭笑由己看别人的感动，流自己的眼泪读别人的故事，听自
2007-09-12 11:50:00
678
原创 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
2153
原创 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
846
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人