上一页 1 ··· 6 7 8 9 10 11 12 13 14 ··· 37 下一页
摘要: Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 'データ配列 Dim companies() = New Company() { _ New Company("X01", "ABC com", 34), _ New Company("X02", "DEF inc", 19), _ New Company(... 阅读全文
posted @ 2013-09-18 15:06 sekihin 阅读(281) 评论(0) 推荐(0)
摘要: 1.扩展方法 (Extension Methods)给Person类扩展Print方法Public Module PersonExtension _ Public Sub Print(ByVal aPerson As Person) If aPerson IsNot Nothing Then Console.WriteLine("Istance of Person : " & aPerson.ToString()) Else Console.WriteLine("No instance of Person."... 阅读全文
posted @ 2013-09-18 09:03 sekihin 阅读(331) 评论(0) 推荐(0)
摘要: 1.取消了连接符(1)","之后(2)"()"前后(3)"{}"前后(4)XML(5)连接字符"&"后(6)赋值符号"=","&=",":=","+=","-=","*=","/=","\=","^=",">="后(7)式内の二項演算子"+","-",&qu 阅读全文
posted @ 2013-09-17 16:07 sekihin 阅读(491) 评论(0) 推荐(0)
摘要: 1.保持Msgbox的Icon2.可以追加Checkbox,RadioBOx下载 阅读全文
posted @ 2013-09-17 13:52 sekihin 阅读(397) 评论(0) 推荐(0)
摘要: 'スクロールバーの移動FpSpread1.ShowColumn(0, 0, HorizontalPosition.Left)'SetActiveCellの後、LeaveCellを呼び出すDim ss As FarPoint.Win.Spread.SpreadView = FpSpread1.GetRootWorkbookFpSpread1_LeaveCell(FpSpread1, New FarPoint.Win.Spread.LeaveCellEventArgs(ss, rowIdx, colIdx, newRow, newCol))'行書式コピーFpSpread1. 阅读全文
posted @ 2013-08-26 08:18 sekihin 阅读(949) 评论(0) 推荐(0)
摘要: ●Oracleとの接続テスト"; echo ""; for ( $i = 1; $i " . $column_name . ""; } echo ""; // データのFetch while(OCIFetch($stmt)) { echo ""; for ( $i = 1; $i " . OCIResult($stmt, $column_name) . ""; } echo ""; } echo ""; // リソースの解放 阅读全文
posted @ 2013-08-23 12:10 sekihin 阅读(481) 评论(0) 推荐(0)
摘要: 按行显示的合计select game, sum(purchase) as purchase_sum from purchase group by game;按列显示的合计select sum(case when game = 'action' then purchase else 0 end) as sum_action, sum(case when game = 'puzzle' then purchase else 0 end) as sum_puzzle, sum(case when gam... 阅读全文
posted @ 2013-08-23 09:54 sekihin 阅读(724) 评论(0) 推荐(0)
摘要: enc = System.Text.Encoding.GetEncoding("shift-jis") datamodel = CType(FpSpread1.ActiveSheet.Models.Data, Model.DefaultSheetDataModel) Dim enc As System.Text.Encoding Dim WithEvents datamodel As Model.DefaultSheetDataModel Private Sub datamodel_Changed(ByVal sender As Object, ByVal e ... 阅读全文
posted @ 2013-08-22 10:47 sekihin 阅读(590) 评论(0) 推荐(0)
摘要: ''' ''' 下矢印の動作クラス''' ''' Public Class DownArrowActionDouble ' Actionクラスを継承したサブクラスを作成します Inherits FarPoint.Win.Spread.Action Public Event FormartRow(ByVal sender As Object, ByVal e As FormatRowEventArgs) Public Event CheckRow(ByVal sender As Object, 阅读全文
posted @ 2013-08-22 09:13 sekihin 阅读(515) 评论(0) 推荐(0)
摘要: Oracleの分析関数のサンプル集概要Oracleコミュニティでよく見かける分析関数の使用例を習うより慣れろ形式で、分析関数のイメージを付けて、まとめて紹介します。Oracle11gR1で動作確認しましたが、Oracle11gR2で追加された分析関数の機能についても解説します。プログラム 1. count(*) over() 2. count(*) over() と minus 3. max(Val) over(partition by PID) 4. count(distinct Val) over(partition by PID) 5. Row_Numberとrankとdense_ran 阅读全文
posted @ 2013-07-31 09:48 sekihin 阅读(261) 评论(0) 推荐(0)
上一页 1 ··· 6 7 8 9 10 11 12 13 14 ··· 37 下一页